COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	TITLE DRIVE
C00003 ENDMK
C⊗;
TITLE DRIVE
	INTEGER X1,X2,X3,X4,X5,X6,DRIVE

SA:	SPCWAR 1,SW6
	INCHRW↔JRST .-1

SW6:	MOVE X1↔DPB [POINT 7,DRIVE,6]
	MOVE X2↔DPB [POINT 7,DRIVE,13]
	MOVE X3↔DPB [POINT 7,DRIVE,20]
	MOVE X4↔DPB [POINT 7,DRIVE,27]
	MOVE X5↔DPB [POINT 7,DRIVE,34]
	MOVE X6↔DPB [POINT 1,DRIVE,35]
	DATAO 410,DRIVE
	DISMIS
END SA